home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / lang / amigatalk.lha / intuition / GadgetTags.st < prev    next >
Text File  |  2001-06-02  |  27KB  |  788 lines
  1. " ------------------------------------------------------------------- "
  2. " CheckboxGadgetTag Class allows the User to specify the attributes   "
  3. " for CheckBox Gadgets."
  4. " ------------------------------------------------------------------- "
  5.  
  6. Class CheckboxGadgetTag :Intuition ! tagDictionary !
  7. [
  8.    setKeyMarker: newMark
  9.       ^ tagDictionary at: (super getGadgetAttr: #GT_Underscore) 
  10.                      put: newMark
  11. |
  12.    setCheck
  13.       ^ tagDictionary at: (super getGadToolAttr: #GTCB_Checked) put: true
  14. |
  15.    clearCheck      
  16.       ^ tagDictionary at: (super getGadToolAttr: #GTCB_Checked) put: false
  17. |
  18.    enableCheck
  19.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  20. |
  21.    disableCheck
  22.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  23. | 
  24.    enableScaling
  25.       ^ tagDictionary at: (super getGadToolAttr: #GTCB_Scaled) put: true
  26. | 
  27.    disableScaling
  28.       ^ tagDictionary at: (super getGadToolAttr: #GTCB_Scaled) put: false
  29. |
  30.    getGTUnderscore
  31.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  32. |
  33.    getGADisabled
  34.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  35. |
  36.    getGTCBChecked
  37.       ^ tagDictionary at: (super getGadToolAttr: #GTCB_Checked)
  38. |
  39.    getGTCBScaled
  40.       ^ tagDictionary at: (super getGadToolAttr: #GTCB_Scaled)
  41. |
  42.    new
  43.      tagDictionary <- Dictionary new.
  44.  
  45.      tagDictionary at: (super getGadToolAttr: #GTCB_Checked)  put: false.
  46.      tagDictionary at: (super getGadToolAttr: #GTCB_Scaled)   put: false.
  47.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)   put: false.
  48.      tagDictionary at: (super getGadToolAttr: #GT_Underscore) put: $_.
  49.  
  50.      ^ self
  51. ]
  52.  
  53. " ------------------------------------------------------------------- "
  54. " CycleGadgetTag Class allows the User to specify the attributes of   "
  55. " Cycle Gadgets."
  56. " ------------------------------------------------------------------- "
  57.  
  58. Class CycleGadgetTag :Intuition ! tagDictionary !
  59. [
  60.    setKeyMarker: newMark
  61.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  62.                      put: newMark
  63. |
  64.    enableCycle
  65.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  66. |
  67.    disableCycle
  68.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  69. |
  70.    setLabelsArray: newStringArray
  71.       ^ tagDictionary at: (super getGadToolAttr: #GTCY_Lables) 
  72.                      put: newStringArray
  73. |
  74.    activate: whichChoice
  75.       ^ tagDictionary at: (super getGadToolAttr: #GTCY_Active) 
  76.                      put: whichChoice
  77. |
  78.    getGTUnderscore
  79.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  80. |
  81.    getGADisabled
  82.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  83. |
  84.    new
  85.      tagDictionary <- Dictionary new.
  86.  
  87.      tagDictionary at: (super getGadToolAttr: #GTCY_Active)   put: 0.
  88.      tagDictionary at: (super getGadToolAttr: #GTCY_Labels)   put: nil.
  89.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)   put: false.
  90.      tagDictionary at: (super getGadToolAttr: #GT_Underscore) put: $_.
  91.  
  92.      ^ self
  93. ]
  94.  
  95.  
  96. " ------------------------------------------------------------------- "
  97. " ------------------------------------------------------------------- "
  98. Class ListViewGadgetTag :Intuition ! tagDictionary !
  99. [
  100.    setKeyMarker: newMark
  101.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  102.                      put: newMark
  103. |
  104.    enableListView
  105.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  106. |
  107.    disableListView
  108.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  109. |
  110.    setTopItem: itemNumber
  111.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_Top) put: itemNumber
  112. |
  113.    setVisibleItem: itemNumber
  114.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_MakeVisible) 
  115.                      put: itemNumber
  116. |
  117.    setContents: newStringArray
  118.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_Labels) 
  119.                      put: newStringArray
  120. |
  121.    readOnly
  122.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_ReadOnly) put: true
  123. |
  124.    editable
  125.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_ReadOnly) put: false
  126. |
  127.    setMaxPen: penNumber
  128.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_MaxPen) 
  129.                      put: penNumber
  130. |
  131.    setItemHeight: itemHeight
  132.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_ItemHeight) 
  133.                      put: itemHeight
  134. |
  135.    setCallBack: functionPtr
  136.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_CallBack) 
  137.                      put: functionPtr
  138. |
  139.    setScrollWidth: width
  140.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_ScrollWidth) 
  141.                      put: width
  142. |
  143.    setSelectViewer: gadgetObject
  144.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_ShowSelected) 
  145.                      put: gadgetObject
  146. |
  147.    setSelectedItem: itemNumber
  148.       ^ tagDictionary at: (super getGadToolAttr: #GTLV_Selected) 
  149.                      put: itemNumber
  150. |
  151.    setItemSpacing: space
  152.       ^ tagDictionary at: (super getGadgetAttr: #LAYOUTA_Spacing) 
  153.                      put: space
  154. |
  155.    getGTUnderscore
  156.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  157. |
  158.    getGADisabled
  159.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  160. |
  161.    new
  162.      tagDictionary <- Dictionary new.
  163.  
  164.      tagDictionary at: (super getGadToolAttr: #GTLV_Labels)      put: nil.
  165.      tagDictionary at: (super getGadToolAttr: #GTLV_Top)         put: 0.
  166.      tagDictionary at: (super getGadToolAttr: #GTLV_MakeVisible) put: 0.
  167.      tagDictionary at: (super getGadToolAttr: #GTLV_ReadOnly)   put: false.
  168.      tagDictionary at: (super getGadToolAttr: #GTLV_MaxPen)     put: 2.
  169.      tagDictionary at: (super getGadToolAttr: #GTLV_ItemHeight) put: 9.
  170.      tagDictionary at: (super getGadToolAttr: #GTLV_CallBack)   put: nil.
  171.      tagDictionary at: (super getGadToolAttr: #GTLV_ScrollWidth) put: 16.
  172.      tagDictionary at: (super getGadToolAttr: #GTLV_ShowSelected) put: nil.
  173.      tagDictionary at: (super getGadToolAttr: #GTLV_Selected)   put: 0.
  174.      tagDictionary at: (super getGadgetAttr:  #LAYOUTA_Spacing) put: 2.
  175.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)     put: false.
  176.      tagDictionary at: (super getGadToolAttr: #GT_Underscore)   put: $_.
  177.  
  178.      ^ self
  179. ]
  180.  
  181. " ------------------------------------------------------------------- "
  182. " ------------------------------------------------------------------- "
  183. Class RadioGadgetTag :Intuition ! tagDictionary !
  184. [
  185.    setKeyMarker: newMark
  186.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  187.                      put: newMark
  188. |
  189.    enableRadio
  190.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  191. |
  192.    disableRadio
  193.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  194. |
  195.    setRadioLabels: newStringArray
  196.       ^ tagDictionary at: (super getGadToolAttr: #GTMX_Labels)
  197.                      put: newStringArray
  198. |
  199.    placeTitle: where
  200.       ^ tagDictionary at: (super getGadToolAttr: #GTMX_TitlePlace) 
  201.                      put: where
  202. |
  203.    activate: buttonNumber
  204.       ^ tagDictionary at: (super getGadToolAttr: #GTMX_Active) 
  205.                      put: buttonNumber
  206. |
  207.    useScaling
  208.       ^ tagDictionary at: (super getGadToolAttr: #GTMX_Scaled) put: true
  209. |
  210.    clearScaling
  211.       ^ tagDictionary at: (super getGadToolAttr: #GTMX_Scaled) put: false
  212. |
  213.    setButtonSpacing: space
  214.       ^ tagDictionary at: (super getGadToolAttr: #GTMX_Spacing) put: space
  215. |
  216.    getGTUnderscore
  217.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  218. |
  219.    getGADisabled
  220.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  221. |
  222.    new
  223.      tagDictionary <- Dictionary new.
  224.  
  225.      tagDictionary at: (super getGadToolAttr: #GTMX_Labels)     put: nil.
  226.      tagDictionary at: (super getGadToolAttr: #GTMX_TitlePlace) put: 0.
  227.      tagDictionary at: (super getGadToolAttr: #GTMX_Active)     put: 0.
  228.      tagDictionary at: (super getGadToolAttr: #GTMX_Scaled)     put: false.
  229.      tagDictionary at: (super getGadToolAttr: #GTMX_Spacing)    put: 2.
  230.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)     put: false.
  231.      tagDictionary at: (super getGadToolAttr: #GT_Underscore)   put: $_.
  232.  
  233.      ^ self
  234. ]
  235.  
  236. " ------------------------------------------------------------------- "
  237. " ------------------------------------------------------------------- "
  238. Class NumberGadgetTag :Intuition ! tagDictionary !
  239. [
  240.    setKeyMarker: newMark
  241.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  242.                      put: newMark
  243. |
  244.    enableNumber
  245.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  246. |
  247.    disableNumber
  248.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  249. |
  250.    setNumber: newNumber
  251.       ^ tagDictionary at: (super getGadToolAttr: #GTNM_Number) 
  252.                      put: newNumber
  253. |
  254.    leftJustify
  255.       ^ tagDictionary at: (super getGadToolAttr: #GTNM_Justification) 
  256.                      put: 0
  257. |
  258.    rightJustify
  259.       ^ tagDictionary at: (super getGadToolAttr: #GTNM_Justification) 
  260.                      put: 1
  261. |
  262.    centerJustify
  263.       ^ tagDictionary at: (super getGadToolAttr: #GTNM_Justification) 
  264.                      put: 2
  265. |
  266.    useBorder
  267.       ^ tagDictionary at: (super getGadToolAttr: #GTNM_Border) put: true
  268. |
  269.    clearBorder
  270.       ^ tagDictionary at: (super getGadToolAttr: #GTNM_Border) put: false
  271. |
  272.    getGTUnderscore
  273.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  274. |
  275.    getGADisabled
  276.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  277. |
  278.    new
  279.      tagDictionary <- Dictionary new.
  280.  
  281.      tagDictionary at: (super getGadToolAttr: #GTNM_Number)        put: 0.
  282.      tagDictionary at: (super getGadToolAttr: #GTNM_Justification) put: 0.
  283.      tagDictionary at: (super getGadToolAttr: #GTNM_Border)   put: true.
  284.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)   put: false.
  285.      tagDictionary at: (super getGadToolAttr: #GT_Underscore) put: $_.
  286.  
  287.      ^ self
  288. ]
  289.  
  290. " ------------------------------------------------------------------- "
  291. " ------------------------------------------------------------------- "
  292. Class PaletteGadgetTag :Intuition ! tagDictionary !
  293. [
  294.    setKeyMarker: newMark
  295.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  296.                      put: newMark
  297. |
  298.    enablePalette
  299.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  300. |
  301.    disablePalette
  302.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  303. |
  304.    setDepth: newDepth
  305.       ^ tagDictionary at: (super getGadToolAttr: #GTPA_Depth) put: newDepth
  306. |
  307.    setNumberOfColors: maxNumber 
  308.       ^ tagDictionary at: (super getGadToolAttr: #GTPA_NumColors) 
  309.                      put: maxNumber
  310. |
  311.    selectedColor: penNumber
  312.       ^ tagDictionary at: (super getGadToolAttr: #GTPA_Color) 
  313.                      put: penNumber
  314. |
  315.    setColorOffset: offset
  316.       ^ tagDictionary at: (super getGadToolAttr: #GTPA_ColorOffset) 
  317.                      put: offset
  318. |
  319.    setColorTable: colorTable
  320.       ^ tagDictionary at: (super getGadToolAttr: #GTPA_ColorTable) 
  321.                      put: colorTable
  322. |
  323.    getGTUnderscore
  324.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  325. |
  326.    getGADisabled
  327.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  328. |
  329.    new
  330.      tagDictionary <- Dictionary new.
  331.  
  332.      tagDictionary at: (super getGadToolAttr: #GTPA_Depth)       put: 1.
  333.      tagDictionary at: (super getGadToolAttr: #GTPA_NumColors)   put: 2.
  334.      tagDictionary at: (super getGadToolAttr: #GTPA_Color)       put: 0.
  335.      tagDictionary at: (super getGadToolAttr: #GTPA_ColorOffset) put: 0.
  336.      tagDictionary at: (super getGadToolAttr: #GTPA_ColorTable)  put: nil.
  337.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)      put: false.
  338.      tagDictionary at: (super getGadToolAttr: #GT_Underscore)    put: $_.
  339.  
  340.      ^ self
  341. ]
  342.  
  343. " ------------------------------------------------------------------- "
  344. " ------------------------------------------------------------------- "
  345. Class ScrollerGadgetTag :Intuition ! tagDictionary !
  346. [
  347.    setKeyMarker: newMark
  348.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  349.                      put: newMark
  350. |
  351.    enableScroller
  352.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  353. |
  354.    disableScroller
  355.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  356. |
  357.    setTop: visibleTop
  358.       ^ tagDictionary at: (super getGadToolAttr: #GTSC_Top) put: visibleTop
  359. |
  360.    setTotal: newTotal
  361.       ^ tagDictionary at: (super getGadToolAttr: #GTSC_Total) put: newTotal
  362. |
  363.    setNumber: newNumber
  364.       ^ tagDictionary at: (super getGadToolAttr: #GTSC_Visible) 
  365.                      put: newNumber
  366. |
  367.    useArrows: arrowSize
  368.       ^ tagDictionary at: (super getGadToolAttr: #GTSC_Arrows) 
  369.                      put: arrowSize
  370. |
  371.    verticalScroller
  372.       ^ tagDictionary at: (super getGadgetAttr: #PGA_Freedom) put: 2
  373. |
  374.    horizontalScroller
  375.       ^ tagDictionary at: (super getGadgetAttr: #PGA_Freedom) put: 1
  376. |
  377.    useImmediate
  378.       ^ tagDictionary at: (super getGadgetAttr: #GA_Immediate) put: true
  379. |
  380.    clearImmediate
  381.       ^ tagDictionary at: (super getGadgetAttr: #GA_Immediate) put: false
  382. |
  383.    useRelease
  384.       ^ tagDictionary at: (super getGadgetAttr: #GA_RelVerify) put: true
  385. |
  386.    clearRelease
  387.       ^ tagDictionary at: (super getGadgetAttr: #GA_RelVerify) put: false
  388. |
  389.    getGTUnderscore
  390.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  391. |
  392.    getGADisabled
  393.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  394. |
  395.    new
  396.      tagDictionary <- Dictionary new.
  397.  
  398.      tagDictionary at: (super getGadToolAttr: #GTSC_Top)      put: 0.
  399.      tagDictionary at: (super getGadToolAttr: #GTSC_Total)    put: 15.
  400.      tagDictionary at: (super getGadToolAttr: #GTSC_Arrows)   put: 20.
  401.      tagDictionary at: (super getGadToolAttr: #GTSC_Visible)  put: 0.
  402.      tagDictionary at: (super getGadgetAttr:  #PGA_Freedom)   put: 0.
  403.      tagDictionary at: (super getGadgetAttr:  #GA_Immediate)  put: false.
  404.      tagDictionary at: (super getGadgetAttr:  #GA_RelVerify)  put: false.
  405.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)   put: false.
  406.      tagDictionary at: (super getGadToolAttr: #GT_Underscore) put: $_.
  407.  
  408.      ^ self
  409. ]
  410.  
  411. " ------------------------------------------------------------------- "
  412. " ------------------------------------------------------------------- "
  413. Class SliderGadgetTag :Intuition ! tagDictionary !
  414. [
  415.    setKeyMarker: newMark
  416.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  417.                      put: newMark
  418. |
  419.    enableSlider
  420.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  421. |
  422.    disableSlider
  423.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  424. |
  425.    setMinimum: newMin
  426.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_Min) put: newMin
  427. |
  428.    setMaximum: newMax
  429.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_Max) put: newMax
  430. |
  431.    setCurrentLevel: newLevel
  432.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_Level) put: newLevel
  433. |
  434.    setLevelFormat: formatString
  435.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_LevelFormat) 
  436.                      put: formatString
  437. |
  438.    setFormatLength: newMaxLength
  439.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_MaxLevelLen) 
  440.                      put: newMaxLength
  441. |
  442.    placeLevelLeft
  443.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_LevelPlace) put: 1
  444. |
  445.    placeLevelRight
  446.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_LevelPlace) put: 2
  447. |
  448.    placeLevelAbove
  449.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_LevelPlace) put: 4
  450. |
  451.    placeLevelBelow
  452.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_LevelPlace) put: 8
  453. |
  454.    setDisplayFunction: functionPtr
  455.       ^ tagDictionary at: (super getGadToolAttr: #GTSL_DispFunc) 
  456.                      put: functionPtr
  457. |
  458.    verticalSlider
  459.       ^ tagDictionary at: (super getGadgetAttr: #PGA_Freedom) put: 2
  460. |
  461.    horizontalSlider
  462.       ^ tagDictionary at: (super getGadgetAttr: #PGA_Freedom) put: 1
  463. |
  464.    useImmediate
  465.       ^ tagDictionary at: (super getGadgetAttr: #GA_Immediate) put: true
  466. |
  467.    clearImmediate
  468.       ^ tagDictionary at: (super getGadgetAttr: #GA_Immediate) put: false
  469. |
  470.    useRelease
  471.       ^ tagDictionary at: (super getGadgetAttr: #GA_RelVerify) put: true
  472. |
  473.    clearRelease
  474.       ^ tagDictionary at: (super getGadgetAttr: #GA_RelVerify) put: false
  475. |
  476.    getGTUnderscore
  477.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  478. |
  479.    getGADisabled
  480.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  481. |
  482.    new
  483.      tagDictionary <- Dictionary new.
  484.  
  485.      tagDictionary at: (super getGadToolAttr: #GTSL_Min)         put: 0.
  486.      tagDictionary at: (super getGadToolAttr: #GTSL_Max)         put: 15.
  487.      tagDictionary at: (super getGadToolAttr: #GTSL_Level)       put: 0.
  488.      tagDictionary at: (super getGadToolAttr: #GTSL_LevelFormat) put: nil.
  489.      tagDictionary at: (super getGadToolAttr: #GTSL_MaxLevelLen) put: 10.
  490.      tagDictionary at: (super getGadToolAttr: #GTSL_LevelPlace)  put: 1.
  491.      tagDictionary at: (super getGadToolAttr: #GTSL_DispFunc) put: nil.
  492.      tagDictionary at: (super getGadgetAttr:  #PGA_Freedom)   put: 0.
  493.      tagDictionary at: (super getGadgetAttr:  #GA_Immediate)  put: false.
  494.      tagDictionary at: (super getGadgetAttr:  #GA_RelVerify)  put: false.
  495.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)   put: false.
  496.      tagDictionary at: (super getGadToolAttr: #GT_Underscore) put: $_.
  497.  
  498.      ^ self
  499. ]
  500.  
  501. " ------------------------------------------------------------------- "
  502. " ------------------------------------------------------------------- "
  503. Class TextGadgetTag :Intuition ! tagDictionary !
  504. [
  505.    setKeyMarker: newMark
  506.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  507.                      put: newMark
  508. |
  509.    enableText
  510.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  511. |
  512.    disableText
  513.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  514. |
  515.    setText: newTextString
  516.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_Text) 
  517.                      put: newTextString
  518. |
  519.    useBorder
  520.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_Border) put: true
  521. |
  522.    clearBorder
  523.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_Border) put: false
  524. |
  525.    setFrontPen: newPen
  526.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_FrontPen) 
  527.                      put: newPen
  528. |
  529.    setBackPen: newPen
  530.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_BackPen) 
  531.                      put: newPen
  532. |
  533.    leftJustify
  534.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_Justification) 
  535.                      put: 0
  536. |
  537.    rightJustify
  538.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_Justification) 
  539.                      put: 1
  540. |
  541.    centerJustify
  542.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_Justification) 
  543.                      put: 2
  544. |
  545.    useClipping
  546.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_Clipped) put: true
  547. |
  548.    clearClipping
  549.       ^ tagDictionary at: (super getGadToolAttr: #GTTX_Clipped) put: false
  550. |
  551.    getGTUnderscore
  552.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  553. |
  554.    getGADisabled
  555.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  556. |
  557.    new
  558.      tagDictionary <- Dictionary new.
  559.  
  560.      tagDictionary at: (super getGadToolAttr: #GTTX_Text)     put: nil.
  561.      tagDictionary at: (super getGadToolAttr: #GTTX_Border)   put: true.
  562.      tagDictionary at: (super getGadToolAttr: #GTTX_Clipped)  put: false.
  563.      tagDictionary at: (super getGadToolAttr: #GTTX_FrontPen)      put: 1.
  564.      tagDictionary at: (super getGadToolAttr: #GTTX_BackPen)       put: 0.
  565.      tagDictionary at: (super getGadToolAttr: #GTTX_Justification) put: 0.
  566.      tagDictionary at: (super getGadgetAttr:  #GA_Disable)    put: false.
  567.      tagDictionary at: (super getGadToolAttr: #GT_Underscore) put: $_.
  568.  
  569.      ^ self
  570. ]
  571.  
  572. " ------------------------------------------------------------------- "
  573. " ------------------------------------------------------------------- "
  574. Class IntegerGadgetTag :Intuition ! tagDictionary !
  575. [
  576.    setKeyMarker: newMark
  577.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  578.                      put: newMark
  579. |
  580.    enableInteger
  581.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  582. |
  583.    disableInteger
  584.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  585. |
  586.    setInteger: newInteger
  587.       ^ tagDictionary at: (super getGadToolAttr: #GTIN_Number) 
  588.                      put: newInteger
  589. |
  590.    setMaxDigits: newMaximum
  591.       ^ tagDictionary at: (super getGadToolAttr: #GTIN_MaxChars) 
  592.                      put: newMaximum
  593. |
  594.    useHelpKey
  595.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_ExitHelp) 
  596.                      put: true
  597. |
  598.    clearHelpKey
  599.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_ExitHelp) 
  600.                      put: false
  601. |
  602.    useTabCycle
  603.       ^ tagDictionary at: (super getGadgetAttr: #GA_TabCycle) put: true
  604. |
  605.    clearTabCycle
  606.       ^ tagDictionary at: (super getGadgetAttr: #GA_TabCycle) put: false
  607. |
  608.    setEditHook: hookFunction
  609.       ^ tagDictionary at: (super getGadToolAttr: #GTIN_EditHook) 
  610.                      put: hookFunction
  611. |
  612.    rightJustify
  613.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_Justification) 
  614.                      put: 1
  615. |
  616.    leftJustify
  617.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_Justification) 
  618.                      put: 0
  619. |
  620.    centerJustify
  621.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_Justification) 
  622.                      put: 2
  623. |
  624.    useReplaceMode
  625.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_ReplaceMode) 
  626.                      put: true
  627. |
  628.    useInsertMode
  629.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_ReplaceMode) 
  630.                      put: false
  631. |
  632.    getGTUnderscore
  633.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  634. |
  635.    getGADisabled
  636.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  637. |
  638.    new
  639.      tagDictionary <- Dictionary new.
  640.  
  641.      tagDictionary at: (super getGadToolAttr: #GTIN_Number)   put: 0.
  642.      tagDictionary at: (super getGadToolAttr: #GTIN_MaxChars) put: 10.
  643.  
  644.      tagDictionary at: (super getGadgetAttr:  #GA_TabCycle)   put: false.
  645.      tagDictionary at: (super getGadToolAttr: #GTIN_EditHook) put: nil.
  646.  
  647.      tagDictionary at: (super getGadgetAttr:  #STRINGA_Justification) 
  648.                   put: 0.
  649.  
  650.      tagDictionary at: (super getGadgetAttr:  #STRING_ReplaceMode) 
  651.                   put: false.
  652.  
  653.      tagDictionary at: (super getGadgetAttr:  #STRINGA_ExitHelp) 
  654.                   put: false.
  655.  
  656.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)   put: false.
  657.      tagDictionary at: (super getGadToolAttr: #GT_Underscore) put: $_.
  658.  
  659.      ^ self
  660. ]
  661.  
  662. " ------------------------------------------------------------------- "
  663. " ------------------------------------------------------------------- "
  664. Class StringGadgetTag :Intuition ! tagDictionary !
  665. [
  666.    setKeyMarker: newMark
  667.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  668.                      put: newMark
  669. |
  670.    enableString
  671.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  672. |
  673.    disableString
  674.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  675. |
  676.    setString: newString
  677.       ^ tagDictionary at: (super getGadToolAttr: #GTST_String) 
  678.                      put: newString
  679. |
  680.    setStringLength: maxLength
  681.       ^ tagDictionary at: (super getGadToolAttr: #GTST_MaxChars) 
  682.                      put: maxLength
  683. |
  684.    useHelpKey
  685.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_ExitHelp) 
  686.                      put: true
  687. |
  688.    clearHelpKey
  689.       ^ tagDictionary at: (super getGadgetAttr: #STRING_ExitHelp) 
  690.                      put: false
  691. |
  692.    useTabCycle
  693.       ^ tagDictionary at: (super getGadgetAttr: #GA_TabCycle) put: true
  694. |
  695.    clearTabCycle
  696.       ^ tagDictionary at: (super getGadgetAttr: #GA_TabCycle) put: false
  697. |
  698.    setEditHook: hookFunction
  699.       ^ tagDictionary at: (super getGadToolAttr: #GTST_EditHook) 
  700.                      put: hookFunction
  701. |
  702.    rightJustify
  703.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_Justification) 
  704.                      put: 1
  705. |
  706.    leftJustify
  707.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_Justification)
  708.                      put: 0
  709. |
  710.    centerJustify
  711.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_Justification)
  712.                      put: 2
  713. |
  714.    useReplaceMode
  715.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_ReplaceMode) 
  716.                      put: true
  717. |
  718.    useInsertMode
  719.       ^ tagDictionary at: (super getGadgetAttr: #STRINGA_ReplaceMode) 
  720.                      put: false
  721. |
  722.    getGTUnderscore
  723.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  724. |
  725.    getGADisabled
  726.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  727. |
  728.    new
  729.      tagDictionary <- Dictionary new.
  730.  
  731.      tagDictionary at: (super getGadToolAttr: #GTST_String)   put: nil.
  732.      tagDictionary at: (super getGadToolAttr: #GTST_MaxChars) put: 10.
  733.  
  734.      tagDictionary at: (super getGadgetAttr:  #STRINGA_ExitHelp) 
  735.                   put: false.
  736.  
  737.      tagDictionary at: (super getGadgetAttr:  #STRINGA_Justification) 
  738.                   put: 0.
  739.  
  740.      tagDictionary at: (super getGadgetAttr:  #STRINGA_ReplaceMode) 
  741.                   put: false.
  742.  
  743.      tagDictionary at: (super getGadgetAttr:  #GA_TabCycle)   put: false.
  744.      tagDictionary at: (super getGadToolAttr: #GTST_EditHook) put: nil.
  745.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)   put: false.
  746.      tagDictionary at: (super getGadToolAttr: #GT_Underscore) put: $_.
  747.  
  748.      ^ self
  749. ]
  750.  
  751. " ------------------------------------------------------------------- "
  752. " ButtonGadgetTag Class allows the user to specify the attributes of  "
  753. " a BUTTON_KIND Gadget that is going to be used in a GUI."
  754. " ------------------------------------------------------------------- "
  755.  
  756. Class ButtonGadgetTag :Intuition ! tagDictionary !
  757. [
  758.    enableButton
  759.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: false
  760. |
  761.    disableButton
  762.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled) put: true
  763. |
  764.    setKeyMarker: newMark
  765.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore) 
  766.                      put: newMark
  767. |
  768.    getGTUnderscore
  769.       ^ tagDictionary at: (super getGadToolAttr: #GT_Underscore)
  770. |
  771.    getGADisabled
  772.       ^ tagDictionary at: (super getGadgetAttr: #GA_Disabled)
  773. |
  774.    useImmediate
  775.       ^ tagDictionary at: (super getGadgetAttr: #GA_Immediate) put: true
  776. |
  777.    clearImmediate
  778.       ^ tagDictionary at: (super getGadgetAttr: #GA_Immediate) put: false
  779. |
  780.    new
  781.      tagDictionary <- Dictionary new.
  782.      tagDictionary at: (super getGadgetAttr:  #GA_Disabled)   put: false.
  783.      tagDictionary at: (super getGadgetAttr:  #GA_Immediate)  put: false.
  784.      tagDictionary at: (super getGadToolAttr: #GT_Underscore) put: $_.
  785.      ^ self
  786. ]
  787.  
  788.